home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / pdselect / ispell_yam / rexx / ispell_lang.rexx < prev    next >
OS/2 REXX Batch file  |  2000-03-08  |  2KB  |  62 lines
  1. /*-------------------------------------------------------------------------------------------------
  2.  
  3.    iSpell_lang.rexx 0.4
  4.  
  5.    Brecht Machiels <darklite@flashmail.com>
  6.      
  7. ---------------------------------------------------------------------------------------------------
  8.  
  9. $VER: iSpell_lang v0.4
  10. $AUTHOR: Copyright © 1999 Brecht Machiels
  11. $DESCRIPTION: Language selector for iSpell scripts
  12.  
  13. -------------------------------------------------------------------------------------------------*/
  14.  
  15. OPTIONS RESULTS
  16.  
  17. a = OPEN('envvar', 'ENV:ISPELLYAM', 'R')
  18. IF a = 0 THEN oldlang = 'none'
  19. ELSE DO
  20.   oldlang = READLN('envvar')
  21.   CLOSE('envvar')
  22.  END
  23.  
  24. i = 0
  25.  
  26. ADDRESS 'COMMAND' 'C:List iSpell:lib/#?.hash LFormat %m >T:ilanguages'
  27. a = OPEN('langlist', 'T:ilanguages', 'R')
  28. IF a = 0 THEN EXIT 10
  29. ELSE DO i = i + 1 WHILE EOF('langlist') = 0
  30.   tlang = READLN('langlist')
  31.   cap = TRANSLATE(SUBSTR(tlang, '1', '1'), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')
  32.   LANGUAGE.i = OVERLAY(cap, tlang)
  33.  END
  34. LANGUAGE.0 = i - 2
  35.  
  36. IF LANGUAGE.0 > 1 THEN DO
  37.   languages = LANGUAGE.1
  38.   DO langnr = 2 TO LANGUAGE.0
  39.    languages = languages||"|"||LANGUAGE.langnr
  40.   END
  41.   languages = "_Save|"||languages||"|_Cancel"
  42.   ADDRESS 'YAM' 'REQUEST "cCurrent language: 'oldlang'\n\ncSelect the new language:" "'languages'"'
  43.   SELECT
  44.     WHEN result = 0 THEN EXIT
  45.     WHEN result = 1 THEN ADDRESS 'COMMAND' 'copy ENV:ISPELLYAM ENVARC:'
  46.     OTHERWISE DO
  47.       sel = result - 1
  48.       ADDRESS 'COMMAND' 'setenv ISPELLYAM 'LANGUAGE.sel
  49.      END
  50.   END
  51.  END
  52. ELSE DO
  53.   ADDRESS 'COMMAND' 'setenv ISPELLYAM 'LANGUAGE.1
  54.   ADDRESS 'YAM' 'REQUEST "cCurrent language: 'LANGUAGE.1'\n\ncYou have only one language installed" "_Save|_Cancel"'
  55.   SELECT
  56.     WHEN result = 0 THEN EXIT
  57.     WHEN result = 1 THEN ADDRESS 'COMMAND' 'copy ENV:ISPELLYAM ENVARC:'
  58.   END
  59.  END
  60.  
  61. EXIT
  62.